home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / fileli1a / lstfiles.bas < prev    next >
BASIC Source File  |  1999-10-08  |  2KB  |  74 lines
  1. Attribute VB_Name = "LstFiles"
  2. Public MRUX(15)
  3.  
  4. Public Function FormatFileSize(Size As String) As String
  5.  
  6.  
  7.     Dim strSize As String, strSize2 As String, strSize3 As String, strSize4 As String
  8.     Dim FormattedSize As String
  9.     Dim i As Integer
  10.     ' if the size is greater than 999, insert a comma
  11.     ' 3 spaces from the end or 3 space from the last
  12.     ' comma
  13.     ' convert the "number" to a string
  14.     strSize = Str(Size)
  15.     
  16.     ' rebuild the string adding commas
  17.  
  18.  
  19.     Select Case Len(strSize)
  20.         Case 5
  21.         ' format 1,000
  22.         strSize2 = Right(strSize, 3)
  23.         strSize2 = "," + strSize2
  24.         strSize3 = Left(strSize, 2)
  25.         strSize3 = strSize3 + strSize2 + " Kb"
  26.         Case 6
  27.         ' format 10,000
  28.         strSize2 = Right(strSize, 3)
  29.         strSize2 = "," + strSize2
  30.         strSize3 = Left(strSize, 3)
  31.         strSize3 = strSize3 + strSize2 + " Kb"
  32.         Case 7
  33.         ' format 100,000
  34.         strSize2 = Right(strSize, 3)
  35.         strSize2 = "," + strSize2
  36.         strSize3 = Left(strSize, 4)
  37.         strSize3 = strSize3 + strSize2 + " Kb"
  38.         Case 8
  39.         ' format 1,000,000
  40.         strSize2 = Right(strSize, 3)
  41.         strSize2 = "," + strSize2
  42.         strSize3 = Left(strSize, 5)
  43.         strSize3 = strSize3 + strSize2
  44.         
  45.         strSize4 = Right(strSize3, 7)
  46.         strSize4 = "," + strSize4
  47.         strSize3 = Left(strSize, 2)
  48.         strSize3 = strSize3 + strSize4 + " Mb"
  49.         Case 9
  50.         ' format 10,000,000
  51.         strSize2 = Right(strSize, 3)
  52.         strSize2 = "," + strSize2
  53.         strSize3 = Left(strSize, 5)
  54.         strSize3 = strSize3 + strSize2
  55.         
  56.         strSize4 = Right(strSize3, 7)
  57.         strSize4 = "," + strSize4
  58.         strSize3 = Left(strSize, 3)
  59.         strSize3 = strSize3 + strSize4 + " Mb"
  60.         Case Else
  61.         strSize3 = strSize + " bytes"
  62.     End Select
  63.  
  64.  
  65.  
  66.  
  67. FormattedSize = strSize3
  68.  
  69.  
  70.     FormatFileSize = FormattedSize
  71.  
  72. End Function
  73.  
  74.